﻿<!--#Include File="../Inc/Const.Asp"-->
<!--#Include File="Inc/Class_Setting.Asp"-->
<!--#Include File="Inc/Class_Diypage.Asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<script src="images/ajax.js"></script>
<title>WelCome</title>
<link href="Images/Style.Css" rel="stylesheet" type="text/css" />
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="css_table" bgcolor='#E1E1E1'>
	<tr class="css_menu">
		<td colspan="3"><table width="100%" border="0" cellpadding="4" cellspacing="0" class="css_main_table">
				<tr>
					<td class="css_main"><a href="#">插件信息</a></td>
				</tr>
			</table></td>
	</tr>
	<%
	Dim PlusName,Plus,i,j
	PlusName = Split(getplus,"/")
	for i = 0 to ubound(PlusName)
		Set Plus = New Cls_Plus
		Call Plus.Open(PlusName(i))
		If Plus.ErrorCode = 0 Then
			If ChkLevel("setting") Or ChkManagePlus(PlusName(i)) Then
				j = j + 1
				%>
	<tr>
		<td class=css_col1<%=j%>><table width="100%" border="0" cellpadding="0" cellspacing="0">
				<tr>
					<td width="120">
					<%If ChkLevel("setting") Then%>
						<a href=Admin_PlusSetting.Asp?Name=<%=PlusName(i)%>><font style=" font-size: 14px; color: #666;" ><%=Plus.Main("name")%> <font style="font-size: 12px; color: red;">配置</font></font></a>
					<%Else%>
						<font style=" font-size: 14px; color: #666;" ><%=Plus.Main("name")%></font>
					<%End If%>
					</td>
					<td><%=IIF(Plus.Config("state")=0 ,"<font color=#999999>禁用</font>" ,"<font color=#669933>启用</font>")%>
						<%
						If Len(Plus.Main("managepage")) > 0 And Plus.Config("state")=1 Then Response.Write " <a href=../Plus/" & PlusName(i) & "/" & Plus.Main("managepage") & "><font color=#669933>管理</font></a>"
						If DB("Select [ID] From [{pre}Plus] Where [Name]='" & PlusName(i) &"'",1).Eof Then
							If (Len(Plus.Main("install")) > 5 Or Len(Plus.Main("uninstall")) > 5) And ChkLevel("setting") Then Response.write " <span id='plus" & PlusName(i) & "'><a href=# onclick=""if(confirm('您确定要安装此插件吗?')){PlusInstall('" & PlusName(i) & "');}""><font color=#669933>安装</font></a></span>"
						Else
							
							If (Len(Plus.Main("install")) > 5 Or Len(Plus.Main("uninstall")) > 5) And ChkLevel("setting") Then Response.write " <span id='plus" & PlusName(i) & "'><a href=# onclick=""if(confirm('您确定要卸载此插件吗?\n\n卸载后请删除模板里关于本插件的相关代码!\n\n除非你很了解本插件,否则我推荐你禁用本插件而非卸载!')){if(confirm('确定要卸载吗?\n\n卸载后数据不可恢复!')){PlusUnInstall('" & PlusName(i) & "');}}""><font color=#999999>卸载</font></a></span>"
						End If

						%></td>
				</tr>
			</table>
		</td>
		<td class=css_col1<%=j%>><table width="100%" border="0" cellpadding="0" cellspacing="0">
				<tr>
					<td><a href=<%=Plus.Main("authorurl")%> target=_blank><font style=" font-size: 14px; color: #666;" ><%=Plus.Main("author")%></font></a> (<font color=#777777><%=Replace(Plus.Main("authorurl"),"Http://","",1,1,1)%>)</font> </td>
					<td width=90 align=right>版本: <%=Plus.Main("version")%></td>
				</tr>
			</table>
		</td>
		<td class=css_col1<%=j%>><%=Plus.Main("description")%> </td>
	</tr>
	<%
			End If
			If j >=2 Then j = 0
		End If
	Next
	%>
</table>
</body>
</html>